home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00218_Anti-bounce if in progress.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  836 b   |  43 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   if inSlotMode() then
  6.     setCursor(pSpr, noGood())
  7.   end if
  8. end
  9.  
  10. on mouseWithin
  11.   global gBounceInProgress
  12.   if inMixingMode() then
  13.     Active = barSlotToSprite(findActiveRecipeSlot())
  14.     thisChar = sprite(Active)
  15.     if thisChar.member.type <> #flash then
  16.       exit
  17.     end if
  18.     status = thisChar.pStatus
  19.     if gBounceInProgress then
  20.       setCursor(pSpr, noGood())
  21.     else
  22.       case status of
  23.         #offStage, #greeting, #approaching, #retreating, #bouncing:
  24.           setCursor(pSpr, noGood())
  25.         otherwise:
  26.           setCursor(pSpr, pointingHand())
  27.       end case
  28.     end if
  29.   else
  30.     if inSlotMode() then
  31.       nothing()
  32.     end if
  33.   end if
  34. end
  35.  
  36. on mouseLeave
  37.   setCursor(pSpr, pointingHand())
  38. end
  39.  
  40. on endSprite
  41.   setCursor(pSpr, defaultCursor())
  42. end
  43.